perm filename ALMAIN.TTY[AL,HE] blob sn#360979 filedate 1978-06-14 generic text, type T, neo UTF8
BEGIN
SCALAR ARRAY I[2:3];
SCALAR ARRAY J,K[2:3];
SCALAR JJ;
FOR JJ←1 STEP 1 UNTIL 6 DO J[JJ]←JJ*JJ;
FOR JJ←1 STEP 1 UNTIL 6 DO PRINT(JJ);
END;